
(with-input-from-file 
    "/etc/passwd" 
  (lambda () 
    (do ((l (read-line) (read-line)))
	((eof-object? l))
      (display l)
      (newline))))

(with-input-from-file 
    "/etc/passwd" 
  (lambda () 
    (do ((s (read-string 16) (read-string 16)))
	((eof-object? s))
      (write s)
      (newline))))

